#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

local $^I = '.old';
while (<>) {
    next if m/.*ENTER_FUNC.*/;
    print;
}
